%-----
{Catalog 
LoopIn FC lt ClusterCount 0 gt and{(??? 1 501 1) D}if
LoopIn FC eq ClusterCount 0 gt and{(??? 1 1000 1) D}if/ClusterCount 0 store}
stopped
{RS R C (??? 1 -501 ) M (\(An error occured while processing the font ) M C F M C (. \(501\)\)) M POST quit}if